home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xtextitem16.t < prev    next >
Text File  |  1990-06-01  |  847b  |  18 lines
  1. (herald xtextitem16 (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XTEXTITEM16) (CONS 'XTEXTITEM16P (MAKE-BYTEV 16)))
  3. (DEFINE (XTEXTITEM16-CHARS X)
  4.         ((LAMBDA (X Y) (CONS 'XCHAR2BP (MREF-POINTER X Y)))
  5.          (CHK-XTEXTITEM16P X)
  6.          0))
  7. (DEFINE (XTEXTITEM16-CHARS! X Y)
  8.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-XCHAR2BP Z)))
  9.          (CHK-XTEXTITEM16P X)
  10.          0
  11.          Y))
  12. (DEFINE (XTEXTITEM16-NCHARS X) (MREF-INTEGER (CHK-XTEXTITEM16P X) 4))
  13. (DEFINE (XTEXTITEM16-NCHARS! X Y) (SET-MREF-INTEGER! (CHK-XTEXTITEM16P X) 4 Y))
  14. (DEFINE (XTEXTITEM16-DELTA X) (MREF-INTEGER (CHK-XTEXTITEM16P X) 8))
  15. (DEFINE (XTEXTITEM16-DELTA! X Y) (SET-MREF-INTEGER! (CHK-XTEXTITEM16P X) 8 Y))
  16. (DEFINE (XTEXTITEM16-FONT X) (MREF-INTEGER (CHK-XTEXTITEM16P X) 12))
  17. (DEFINE (XTEXTITEM16-FONT! X Y) (SET-MREF-INTEGER! (CHK-XTEXTITEM16P X) 12 Y))
  18.